-- card: 2940 from stack: in -- bmap block id: 3138 -- flags: 0000 -- background id: 2757 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 0004 -- rect: left=39 top=78 right=112 bottom=78 -- title width / last selected line: 0 -- icon id / first selected line: 1005 / 1005 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: display ----- HyperTalk script ----- on mouseUp end mouseUp -- part 3 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=88 top=63 right=257 bottom=505 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 5 (button) -- low flags: 00 -- high flags: A003 -- rect: left=118 top=274 right=315 bottom=416 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: GO! ----- HyperTalk script ----- on mouseUp set cursor to 4 set lockScreen to True show button "HyperWrite Link" choose button tool get location of button "HyperWrite Link" click at it doMenu "copy button" hide button "HyperWrite Link" put empty into message box go "Address" doMenu "Background" doMenu "paste button" doMenu "Background" choose browse tool set lockScreen to False answer "HyperWrite Link button installed!" end mouseUp -- part 6 (button) -- low flags: 80 -- high flags: 2004 -- rect: left=467 top=30 right=64 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 1005 / 1005 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: HyperWrite Link ----- HyperTalk script ----- on mouseUp global Address1 global Address2 global Address3 global Address4 put line 1 of field "Name and Address" into Address1 put line 2 of field "Name and Address" into Address2 put line 3 of field "Name and Address" into Address3 put line 4 of field "Name and Address" into Address4 hide message box go "HyperWrite" if field "Title" is not "<>" then MakeSure else goAhead end if end mouseUp on makeSure Answer "Document is not new. Add address anyway?" with "OK" or "Cancel" If it is "OK" then goAhead end makeSure on goAhead set cursor to 4 set lockScreen to true global Address1 global Address2 global Address3 global Address4 click at 450,5 click at 4,41 set cursor to 4 type return type " " doMenu "Paste Text" type return type return put Address1 into line 4 of field "Text" put Address2 into line 5 of field "Text" put Address3 into line 6 of field "Text" put Address4 into line 7 of field "Text" put "Dear " into line 9 of field "Text" set lockscreen to false set cursor to 1 end goAhead -- part contents for card part 3 ----- text ----- Pressing the GO! button below will put a new button on your address stack to make it integrate with HyperWrite. You can sort, find, and browse through your names and addresses as always, but when you click on your new button, it will take the name and address on the last card you looked at and put that name and address in a new HyperWrite document. If you’re using an address stack other than the one Apple provides with HyperCard, you can probably modify this button to work with it. See HyperWrite’s instructions for more information. Contact me if you need help. Scott Harris, CompuServe 73717,1162; GEnie SCOTT.HARRIS